perm filename MFSYS.DIF[MF,DEK] blob sn#557220 filedate 1981-01-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF]	1-22-81 11:15	pages 1,1
C00006 00003	  1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF]	1-22-81 11:15	pages 3,3
C00011 ENDMK
C⊗;
  1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF]	1-22-81 11:15	pages 1,1

**** File 1) MFSYS.SAI[MF,DEK]/1P/6L
1)	C00012 00004	Dynamic memory allocation: links,memsize,vmemsize,mem,vmem,memreal,vmemint
1)	C00015 00005	Partial field macros: field,ufield,link,info,setfield...setinfo
1)	C00019 00006	Memory allocation: getavail, getvavail, freeavail, dslist
1)	C00022 00007	Memory, continued: checkmem, searchmem
1)	C00027 00008	Getting the whole thing started properly
1)	C00031 ENDMK
1)	C⊗;
**** File 2) MFSYS.SAI[MF,DRF]/1P/6L
2)	C00013 00004	Dynamic memory allocation: links,memsize,vmemsize,mem,vmem,memreal,vmemint
2)	C00016 00005	Partial field macros: field,ufield,link,info,setfield...setinfo
2)	C00020 00006	Memory allocation: getavail, getvavail, freeavail, dslist
2)	C00023 00007	Memory, continued: checkmem, searchmem
2)	C00028 00008	Getting the whole thing started properly
2)	C00033 ENDMK
2)	C⊗;
***************


**** File 1) MFSYS.SAI[MF,DEK]/3P/13L
1)	integer errcnt # the number of errors that TEX didn't wait after;
1)	internal boolean deletions_allowed # is it safe for error routine to call getnext?;
**** File 2) MFSYS.SAI[MF,DRF]/3P/13L
2)	internal boolean deletions_allowed # is it safe for error routine to call getnext?;
***************


**** File 1) MFSYS.SAI[MF,DEK]/3P/27L
1)		IFWAITS if c='15 then begin c←inchrw # ignore the line-feed; return end; ENDWAITS
1)		IFTENEX if c='37 then return; ENDTENEX
1)		if c='12 then begin pausing_on_errors←false; return end;
**** File 2) MFSYS.SAI[MF,DRF]/3P/26L
2)		IFTENEX if c='37 then return; 
2)		ELSEC if c='15 then begin c←inchrw # ignore the line-feed; return end;
2)		ENDC
2)		if c='12 then begin pausing_on_errors←false; return end;
***************


**** File 1) MFSYS.SAI[MF,DEK]/3P/36L
1)		if c="I" then
**** File 2) MFSYS.SAI[MF,DRF]/3P/36L
2)		IFTOPS20 # this code due to DRF;
2)		if curfile and (c="E" or c="T") then
2)			begin string s; integer i;
2)			setprint(null,"N") # close the errors file;
2)			s←"ED "&'15&'33&"X Fi"&'33&curfile&'15
2)				# ED cr esc X FIND FILE esc curfile cr;
  1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF]	1-22-81 11:15	pages 3,3

2)			s←s&'33&"X↑R Goto B"&'15
2)				# esc X ↑R GOTO BEGINNING cr;
2)			s←s&'25&cvs(curfpage-1)&'33&"X↑R Char"&'15&'14
2)				# cntl-u <page no> esc X ↑R CHARACTER SEARCH cr cntl-L;
2)			s←s&'33&"1"&'33&"X↑R Rev"&'33&"C"&'15&'14
2)				# esc 1 esc X ↑R REVERSE CHARACTER SEARCH cr cntl-L;
2)			s←s&'25&cvs(curfline-1)&'33&"X↑R Down R"&'15
2)				# cntl-u <line no> esc X ↑R DOWN REAL LINE cr;
2)			for i←1 thru length(s) do sti('101,s[i for 1]) # magic ;
2)			goto final_end;
2)			end;
2)		ENDTOPS20
2)		if c="I" then
***************


**** File 1) MFSYS.SAI[MF,DEK]/3P/66L
1)		print(" x or X to quit.",nextline);
1)		end
1)	else begin
1)		errcnt←errcnt+1;
1)		if errcnt≥100 then
1)			begin print(nextline,"(That makes 100 errors, I'm tired of this.)");
1)			go to end_of_MF;
1)			end;
1)		end;
**** File 2) MFSYS.SAI[MF,DRF]/3P/85L
2)		IFTOPS20 if curfile then print(" e or E to edit,"); ENDTOPS20
2)		print(" x or X to quit.",nextline);
2)		end;
***************


**** File 1) MFSYS.SAI[MF,DEK]/8P/27L
1)	 	errcnt←0;
1)		comment If TENEX, we must wait and allocate the raster when the
**** File 2) MFSYS.SAI[MF,DRF]/8P/27L
2)		comment If TENEX, we must wait and allocate the raster when the
***************


**** File 1) MFSYS.SAI[MF,DEK]/8P/41L
1)	setformat(0,4) # controls format of cvf in diagnostic routine "dumplist";
**** File 2) MFSYS.SAI[MF,DRF]/8P/40L
2)	IFTOPS20
2)	begin "getcommandline"
2)		string s; integer i;
2)		start_code
  1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF]	1-22-81 11:15	pages 8,8

2)		    setz  1,0;
2)		    jsys  '500;	haltf;
2)		    end;
2)		s←intty # gets the users command line that started up MF;
2)		while length(s)>0 and s[1 for 1] neq " " do i←lop(s);
2)		while length(s)>0 and s[1 for 1] = " " do i←lop(s);
2)		if length(s)>0 then begin # user gave MF input in command line;
2)			i←location(s);
2)			start_code
2)				move 1,i;
2)				move 1,(1);
2)				jsys '500; haltf;
2)				setz 1,0;
2)				jsys '500; haltf;
2)				end;
2)			end;
2)		end "getcommandline";
2)	ENDTOPS20
2)	setformat(0,4) # controls format of cvf in diagnostic routine "dumplist";
***************


**** File 1) MFSYS.SAI[MF,DEK]/8P/60L
1)	maincontrol # transfer power to the chief executive;
1)	end_of_MF: closeout # close output files of MFOUT;
1)	if bbuf then print(nextline,"(binput file still contains unread data)");
**** File 2) MFSYS.SAI[MF,DRF]/8P/82L
2)	IFXMEM initxmem; ENDXMEM
2)	maincontrol # transfer power to the chief executive;
2)	end_of_MF:
2)	IFXMEM closexmem; ENDXMEM
2)	closeout # close output files of MFOUT;
2)	if bbuf then print(nextline,"(binput file still contains unread data)");
***************